home *** CD-ROM | disk | FTP | other *** search
/ Animator / Animator (Catchers).iso / Acrobat / pftw1.pkg / Reader / AcroRd32.exe / PSPROCSET / 16 < prev    next >
Text File  |  1999-03-18  |  2KB  |  113 lines
  1. %%BeginResource: procset pdflev1
  2. %%Version: 4.0 1
  3. %%Copyright: Copyright 1987-1999 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, with code specific for Level 1
  6. currentscreen
  7. dup type /dicttype eq
  8. { /_defaulthalftone xdd
  9. pop pop
  10. }
  11. { 
  12. 5 dict begin
  13. 1 [/HalftoneType /SpotFunction /Angle /Frequency ]
  14. { exch def } forall
  15. currentdict
  16. end
  17. /_defaulthalftone
  18. exch
  19. dd
  20. } ifelse
  21. /initialize {
  22. _defaulthalftone sethalftone
  23. } bd
  24. /terminate { } bd
  25. /pl {
  26. transform
  27. 0.25 sub round 0.25 add exch
  28. 0.25 sub round 0.25 add exch
  29. itransform
  30. } bd
  31. /m { _sa? { pl } if moveto } bd
  32. /l { _sa? { pl } if lineto } bd
  33. /c { _sa? { pl } if curveto } bd
  34. /setSA { /_sa? xdd } bd
  35. /AlmostFull?
  36. { dup maxlength exch length sub 2 le
  37. } bd
  38. /Expand
  39. { 1 index maxlength mul cvi dict
  40. dup begin exch { def } forall end
  41. } bd
  42. /xput {
  43. 3 2 roll
  44. dup 3 index known not
  45. { dup AlmostFull? { 1.5 Expand } if
  46. } if
  47. dup 4 2 roll put
  48. } bd
  49. /defineRes {
  50. _categories 1 index known not
  51. { /_categories _categories 2 index 10 dict xput store
  52. } if
  53. _categories exch 2 copy get 5 -1 roll 4 index xput put
  54. } bd
  55. /findRes {
  56. _categories exch get exch get
  57. } bd
  58. /ri/pop ld
  59. /L1setcolor {
  60. aload length
  61. dup 0 eq
  62. { pop .5 setgray }
  63. { dup 1 eq
  64. { pop setgray }
  65. { 3 eq
  66. { setrgbcolor }
  67. { setcmykcolor }
  68. ifelse }
  69. ifelse }
  70. ifelse
  71. } bind dd
  72. /_sfcs { } dd
  73. /_sscs { } dd
  74. /_sfc { _fc L1setcolor } dd
  75. /_ssc { _sc L1setcolor } dd
  76. /scn { sc } bd
  77. /SCN { SC } bd
  78. /gs
  79. { begin
  80. /SA here { /_sa? xdd } if
  81. /TR here
  82. {
  83. dup xcheck
  84. { settransfer }
  85. { aload pop setcolortransfer }
  86. ifelse
  87. } if
  88. /HT here { sethalftone } if
  89. /FL here { i } if
  90. currentdict gsDI
  91. end
  92. } bd
  93. /f {
  94. { { sfc fill }
  95. {gsave sfc fill grestore clip newpath icl ilp}
  96. {gsave sfc fill grestore eoclip newpath icl ilp}
  97. } _doClip get exec
  98. } bd
  99. /f* {
  100. { { sfc eofill }
  101. {gsave sfc eofill grestore clip newpath icl ilp}
  102. {gsave sfc eofill grestore eoclip newpath icl ilp}
  103. } _doClip get exec
  104. } bd
  105. /S {
  106. { { ssc stroke }
  107. {gsave ssc stroke grestore clip newpath icl ilp}
  108. {gsave ssc stroke grestore eoclip newpath icl ilp}
  109. } _doClip get exec
  110. } bd
  111. /rf {re f} bd
  112. %%EndResource
  113.